perm filename GRUNG1.F4[NET,GUE] blob sn#026507 filedate 1973-02-26 generic text, type T, neo UTF8
      SUBROUTINE GRUNG1
      DOUBLE PRECISION TD,ZO,EMA,PI,W,WC,X,Y
      DIMENSION X(50),Y(50)
      COMMON /GRUNGE/I,TD,ZO,EMA,PI,W,WC
      COMMON /FIT/ X,Y
      X(I)=ZO*ZO*W*W
      Y(I)=ZO*ZO
      RETURN
      END